UpCase function 

  DECLARATION:  UpCase(Ch : Char);

      PURPOSE:  Converts a character to uppercase

         UNIT:  System

  RESULT TYPE:  Char

      REMARKS:  The character expression, Ch, is converted to uppercase.
                Values outside the range a..z are not affected.